UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU UUU  VVV VVV 1171111 RRR RRR 000 000 MMMMMM = =6>MMMMMM 
UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM = 6MMMMMM 

UUU UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM ~=6MMMMMM 
UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM MMM 
UU VVV VVV 111 RRR RRR 000 000 MMM MMM = MMM 

UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM = =6MMM 
UU VV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU  ~VVV VVV 111 RRR = RRR 000 000 MMM MMM 
UUU UUU  VVV VVV 111 RRR = =RRR 000 000 MMM MMM 
UUU UUU 111 RRR = RRR 000 000 MMM MMM 
UUU UUU vVvvV VV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvVsOVVV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvV OV 111 RRR RRR 000 000 MMM MMM 
UU 1911711711 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117171111 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117111111 RRR RRR 000000000 MMM MMM 
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(1) 58 boo$readprompt = prompt and read input string 
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BOOT_UVI_SWITCH = 1 i Build Micr: X I bootstrap emulator 
ss 


of ithe CONIO = console input output routines 
eident /V1.0-00/ 
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ITT IIII Titi iii iii ii iii iii iiitiitiiiitiitiiiiiiiiitiiiitiiiiitiiit) 
Copyright (C) 1978, 1980, 1982, 1984 


Digital Equipment Corporation, Maynard, Massachusetts. 
all rights reserved. 


* 
® 
* 
* 
® 
*® 
*® 
This software is furnished under a License and may be used and copied * 
gnly nN accordance with i terms of such License and with the * 
nclusion of the above copyright notice. This software or any other * 
copies thereof may not be provided or otherwise made available to any * 
other person. No title to and ownersnip of the software is hereby * 
transferred. * 
* 

® 

a 

* 

® 

® 

* 

ft 

* 


The information in this software is subject to change without notice 
end shoyié not be construed as a commitment by Digital Equipment 
orporation. 


Digital assumes no responsibility for the use or reliability of its 
software on equipment which is not supplied by Digital. 
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Facility: system bootstrapping 
Abstract: CONIO provides basic console read, readprompt and write facilities. 
Author: Richard I. Hustvedt, creation date: 27-apr-1978 
Modified by: 
David N. Cutler 29-Dec-83 
Add support for QVSS as the console terminal on MicroVax I. 
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Include files: 


$prdef H 


define processor registers 
$ssdef ; de 


i 
ine status code values 


Equated symbols: 


OOCCOCOSCOSOOOOOOCOOOOOOOOOOCOOOOOCOOOOOOOOOOOOOOOOOO OO OOOO OOOO 


MEW OOD NO NE WID 20 OD NAMIE WWI SO ODO NE WIN (OOO NOUS WI" OOWOWVOUE Ur 


PA EEE PPE EWI IIIoonononononononony 3 2 


SOOCOCOOCOOOSSOOCOOOCSOO OOOO SOOOOOOSOOOOOOSOoOoOO 
Oooo 
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D cr = 13 3; character code for carriage return 

A Lf = 1 3; character code for line feed 
control_u = #1 3; character code for control-u 

1 control_s = 3 3; control s (xoff) 

1 control_q =_1 ; control q (xon) 

7F rubout = 127 3 character code for rubout 
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00000000 0000 56 virub = 0 3; rubout sequence in progress 
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2 ae -sbttl boo$Sreadprompt - prompt and read input string 
60 ; boo$readprompt ‘ety the specified asciz preaes string on the 
61; console terminal then enecne the count of characters to be read. 
86 3 If zero it exits, otherwise it reads the console terminal until 
65 ; ither a corr tege return is encountered if the character goune 
64 ; s satisfied he specified buffer is filled with an ascic 
65 ; string containing the characters read but not including the 
66 : terminating carriage return. 
0 68 : Calling sequence: 
p 29 : callx arglist,boo$readprompt 
33 ue : Input parameters: 
00 7% : rompt(ap) - address of asciz prompt strin 
00000004 9000 75 premet 2 6 ane . 
4 5s : size(ap) - maximum Length of input string 
00000008 000 78 size = 8 
000 79 ; note: if size is zero, then nothing is read 
4 0 : and only the prompt string is written. 
900 ; : buf (ap) - address of input buffer 
0000000C 4 i buf s 
000 82 option(ap) = processor switch value. 
00000010 44 6 option = 16 
0000 Ht: : Output parameters: 
44 + : r0 - completion status code (always ss$_normal) 
000 3 : Buffer located by buf(ap) will be filled with the string 
000 93 ; read as an ascic string. 
3 ae 
000000 38 -psect $conio,byte 
0314 000 § entry boo$readprompt,“m<r2,r4,r8,r9> 
58 04 AC 00 98 10$ movl prompt (ap),r sget prompt string address 
4 99 clrt r :clear control flags 
50 : A 100 20$: movzbl (r8)+,r0 iget next output character 
. 101 beql 30$ zif eql none 
0086 dD 61 ; bsbw euicher soutput character 
F6 : : ? brb 20$ 5 
52 O08 AC QA 1 105 30$: movzbl size(ap),r2 ;maximum number of characters to read 
, ee 1 1 $ beql 120$ :if eql none 
59 «6c ac 0 1 1 mov buf(ap),r9 iset scdress of input buffer 
4 1 ea 3 clrb (r9)+ sinitialize string count 
02 § F5 if 1 sobgtr ‘ 40$ sdecrement and test character count 
11 110 brb 116$ tend of read 
05 10 AC 06 8 116 40$: bbs 06.08 ton ap) .508 sif set, vt100 console terminal 
FFDS* 5 11 bsbw axes input tread character from qvss 
OA 1 B 114 brb $ 3 
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D 115 
D 116 50$: mfor #or$_rxcs,r0 sreceiver ready? 
9 30 $ pe p 113 bbe #770508 sif clr, rece cer not ready 
1 B 11 mfor eers rxdb,r0 read input character 
58 28 90 f 7 119 608: bicb3 #*x80,r0,r8 iclear par ty bit 
F 8F 1 cmpb #rubout,r8 ;rubout 
an ‘oe 4 121 bneq 80 zif neq no 
58 79 QA 4 1 § movzbl <-(r9),r8 iget character to rubout 
f 1 4 1 beql :1f eql none 
02 54 f 4 124 bbss #v_rub,r4,70$ set start of rubout sequence 
4 48 125 bsbb outbs (sh output back slash 
| 4D 1 § 70$: sbb outr soutput rubbed out character 
rf 09 5 ! ; mss re sadjust remaining character count 
r ; 
1 
02 54 90 #3 3 130 80S: bbcc #v_rub,r4,90$ terminate rubout sequence 
4 0 5 131 bsbb outbslsh soutput backslash 
s Ww ber 1 § 90$: cmpb #contrel_u,r8 zscontrol u? 
AS 13 ee beql zif eql yes 
03 58 98 + 05 134 bbc “ r8,100$ if clr, then graphic 
58 2 A 006 135 bicb # 2.rg iconvert to upper case 
50 OD 91 006 1 § 100$:  cmpb #cr,¢r carriage return? 
OC 13 0068 1 beqt 1108 rif eql yes 
5 i) 06A 138 tstl re pany apece left in buffer? 
1 06C 139 beaql 40$ zif eql no 
10 Bg 140 bsbb outr8 secho character 
89 90 00 141 movb r8,(r9)+ sbuffer new character 
AD 5 F4 f 126 sobgeq r2,40$ reduce space remaining (always loop) 
58 OD 9A O78 144 110$: movzbl @#cr,r8 set carriage return character 
18 #10 79s «145 bsbb outchar : 
50 OA 9A 78 128 movzbl #lf,r0 syes send Line feed also 
16.=~—O 43 14 bsbb outchar soutput character inr 
59 OC AC 08 148 subl buf(ap),r9 scompute character count + 1 
oc Bc «(59 4 BBS 149 subb3 #1,r9,abuf(ap) zset actual character count 
50 1 35 age 139 120$: epee #ss$_normal,r0 return normal completion status 
re 3 
08D 15 
08D 138 outbslsh: youtput back slash 
50 5C 8F 9A O08D 154 movzbl #*a%\%,r0 zset character code 
ee 4 13? brb outchar and output it 
50 58 9A 009 139 outr8: movzbl r8,r0 get character to output 
8 138 outchar: soutput charg ter in r0 
03 10 AC 06 f° 9 1 bbs #6,option(ap) ,10$ sif set, vtl console terminal 
FF62° ae 199 brw avsssoutput 3 
1 i) 9 162 10$: mfpr #or$_rxcs.ri ireceiver ready? 
1B 51 E A 16 bbc #7 77.308 zsif clr, receiver not ready 
1 1 »oB A 164 afor #fors rom ri sread input character. 
13.51 7 A 165 cmp2zv aS a7ir ,Acontrol_s scgntrol=si 
‘AD 196 bneq 30$ zif neq no 
1 ) AF 167 20$: afpr apré rxcs,rl sreceiver ready? 
F9 51 £ 168 bbc et. 6$ sif clr, receiver not ready 
‘ } 1 0B 18 afpr re reg rt ee speed, taput shorecter 
m ofl,@contro zis a con -qQ? 
' : , F iB E i ey 1 -« ino, wait for snother character. 
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readprompt - oronet and read the $s Hamer tees Pi 18: 93 $4 YCAMACHE UV1ROM.VMBJCONIO.MAR; 4 
C if 30$: stor ae t § zen stransmitter done? 
¢ 1.36 tif clr, transmitter not done 
¢ r0.#pr txdb swrite output character 
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BOOSREADPROMPT 02 
Boot UV SWITCH s 
= 
CONTROL 0 = 
CONTROL _S = 
CONTROL _U = 
CR : 
LF s 
OPTION s 
OUTBSLSH 
OUTCHAR 
OUTRB 
= 
PRS_RXCS = 
PRS_RXDB 2 
PRS_TXCS = 
PRS TXDB = 
PT = 0 4 
QVSSSINPUT eerereee 8 6X Os 
QVSSSOUTPUT eeeneeee 8X 
RUBOUT = 8 7F 
size = 8 
S$S$_NORMAL = 0 1 
v_ROB = 00000000 
$e emo em nemo anasoe + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000000 ( 9-3 1¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
SCONIO 00000CB (¢ 203.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
Pesce e este ewe eee ere secon ecat 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization g :00:00.07 : 100.8 
Command processing 8 :00:00.66 :00:01. 
pees debd t "3 88:06:94 00:00. 
able sor :00:00. :00:00. 
Pass 3 :00:00.94 :00:01. 
Symbol table output 4 04 :00.04 
Psect synopsis output 1 ‘ :00:00. ‘ 
Cross-reference output " :00:00. 
Assembler run totals 30 :07. :00:09.91 


Ibe york ing set Limit was 900 pages. 
25745 bytes_(51 pages) of virtual memory were used to buffer the intermediate sgee. 
There were 30 pages of syabol table space allocated to hold 506 non-local ane local symbols. 
1 source Lines were read in Pass 1, produc ng object records in Pass 2. 
pages of virtual memory were used to define & macros. 
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VAX-11 Macro Run Statistics 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
DISESSTARNORKOS: eetid rine: VMSJLIBUV1.M 

DISKS$ST AMACHE .U Ch VMB.MLB; 

SYSSSYSROOT: ESYSLIBISTARLET. ALB: 

TOTALS (all Libraries) 


553 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MAC/LIS=L1S$:CONIO/0BJ=OBJ$:CONIO VMS$:BOOUV1SWT+VMBS$: CONIO+0BJ$: VMB/LIB+VMS$:LIBUV1/LIB 
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